home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / card_19943.txt < prev    next >
Text File  |  1989-07-04  |  3KB  |  117 lines

  1. -- card: 19943 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0005
  11. -- rect: left=20 top=155 right=178 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   global duplicate
  24.   global scoring
  25.   add 1 to scoring
  26.   put"" into background field id"21"
  27.   get loc of background field id"21"
  28.   choose browse tool
  29.   Play"Applause"
  30.   click at it
  31.   type"Correct - Keep up the Good Work."
  32.   add 1 to duplicate
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0005
  40. -- rect: left=20 top=132 right=155 bottom=42
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set the cursor to 4
  52.   global duplicate
  53.   put"" into background field id"21"
  54.   get loc of background field id"21"
  55.   choose browse tool
  56.   click at it
  57.   play"boing"
  58.   type"Sorry your answer is incorrect"
  59.   add 1 to duplicate
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0005
  67. -- rect: left=20 top=109 right=132 bottom=42
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set the cursor to 4
  79.   global duplicate
  80.   put"" into background field id"21"
  81.   get loc of background field id"21"
  82.   choose browse tool
  83.   click at it
  84.   play"boing"
  85.   type"Sorry your answer is incorrect"
  86.   add 1 to duplicate
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 37
  92. ----- text -----
  93. 54
  94.  
  95. -- part contents for background part 32
  96. ----- text -----
  97. The Creation Stage
  98.  
  99. -- part contents for background part 43
  100. ----- text -----
  101. Genesis 11: 8,9
  102.  
  103. -- part contents for background part 1
  104. ----- text -----
  105. How did the Tower of Babel receive its name, "Babel"?
  106.  
  107. -- part contents for background part 12
  108. ----- text -----
  109. It is named after the chief builder Ar Babel.
  110.  
  111. -- part contents for background part 13
  112. ----- text -----
  113. It is named after the region in which it is built, Shinar-Babel.
  114.  
  115. -- part contents for background part 14
  116. ----- text -----
  117. It was named after the confusion  God caused in the language of the people.